home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 8 / QRZ Ham Radio Callsign Database - Volume 8.iso / pc / files / mac / proj_a1.hqx / Project Mac - A1 / antcalc.bas < prev    next >
BASIC Source File  |  1987-11-14  |  975b  |  33 lines
  1. 'ANTCALC.BAS
  2. 'Antenna height calculations
  3. PRINT "Software by: Bob Giese, N5KXN"
  4. PRINT "                     P. O. Box 7681"
  5. PRINT "                     Houston, TX 77270"
  6. '
  7. 'Calculations based on a sphere with approximately
  8. 'the same area as the International ellipsoid.
  9. '
  10. 'This program uses exact geometric distances not the approximate 
  11. 'formula appearing in ARRL literature.  The radio propagation is then
  12. 'computed from the estimate that the radio horizon will be 1/3 longer.
  13. '
  14. R=6378388#*(1#-1#/(3#*297#)) 'This is the radius in meters
  15. F=R*39.37#/12# 'This is radius in U. S. survey feet
  16. F2=F*F 'This is F squared
  17. CLS
  18. again:
  19. INPUT"Enter height in feet of first antenna(0 to stop)";H1
  20. IF H1<=0 THEN STOP
  21. D1=SQR((H1+F)^2-F2)
  22. INPUT"Enter height in feet of second antenna";H2
  23. D2=SQR((H2+F)^2-F2)
  24. D=(D1+D2)/5280#
  25. IF D<0 THEN D=0
  26. PRINT "Geometric line of site distance is      ";D;"miles."
  27. PRINT "Ideal radio line of site propagation is";D*4/3;"miles."
  28. PRINT
  29. GOTO again
  30. END
  31.  
  32.  
  33.